home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / c++-part2 / 15479 < prev    next >
Encoding:
Internet Message Format  |  1996-08-05  |  5.2 KB
  1. Path: cleveland.Freenet.Edu!aa666
  2. From: aa666@cleveland.Freenet.Edu (Dan Krumlauf)
  3. Newsgroups: comp.lang.c++
  4. Subject: Need qb4.5 prog translated to turbo C++ for windows for demonstration
  5. Date: 6 Apr 1996 12:51:34 GMT
  6. Organization: Case Western Reserve University, Cleveland, OH (USA)
  7. Message-ID: <4k5pcm$fi1@madeline.INS.CWRU.Edu>
  8. Reply-To: aa666@cleveland.Freenet.Edu (Dan Krumlauf)
  9. NNTP-Posting-Host: roo.ins.cwru.edu
  10.  
  11.  
  12.  
  13.  
  14.    As the header says. Attached is a qb4.5 program. I am new to c++
  15. and need to see it converted so I can understand the equivelants.
  16.  
  17.   Several questions include is STRUCT similar to TYPE, since there
  18. are no strings in C++ would a character array replace it.
  19.  
  20.  As an example would: (var5 AS STRING * 80) be replaced with
  21. (char   var5[ 80 ])
  22.  
  23.       I am also interested in an explanation of reading a file
  24.  segment/member into a character array.
  25.  
  26.      Any help would be greatly appreciated. Thanks in advance.
  27.  
  28.                                               Dan Krumlauf
  29.                                        C++ programmer in training
  30.  
  31. Basic follows
  32.  
  33. DEFINT A-Z
  34.  
  35. TYPE STUFF
  36.         var1 AS LONG
  37.         var2 AS LONG
  38.         var3 AS STRING * 40
  39.         var4 AS STRING * 40
  40.         var5 AS STRING * 80
  41.         var6 AS STRING * 80
  42.         var7 AS INTEGER
  43.         var8 AS INTEGER
  44.         var9 AS LONG
  45.         var10 AS LONG
  46.         var11 AS LONG
  47.         var12 AS LONG
  48.         var13 AS STRING * 64
  49.         var14 AS INTEGER
  50.         var15 AS STRING * 40
  51.         var16 AS LONG
  52.         var17 AS LONG
  53.         var18 AS STRING * 12 
  54.         var19 AS STRING * 64
  55.         var20 AS LONG
  56.         var21 AS LONG
  57.         var22 AS LONG
  58.         var23 AS STRING * 8
  59.         offset AS LONG
  60.         length AS LONG
  61.         var24 AS INTEGER
  62.         var25 AS INTEGER
  63.         var26 AS LONG
  64.         var27 AS STRING * 24
  65.         var28 AS STRING * 64
  66. END TYPE
  67.  
  68.  DIM Record AS STUFF
  69.  
  70.   OPEN "c:\work\test.dat" FOR RANDOM AS #1 LEN = LEN(Record)
  71.    NumberOfRecords = LOF(1) \ LEN(Record)
  72.     PRINT NumberOfRecords
  73.      INPUT "Message Number? ", RecordNumber%
  74.     GET #1, RecordNumber, Record
  75.   CLOSE #1
  76.  
  77.  INPUT "Name of Save File: ", sav$
  78.   savext1$ = ".txt"
  79.   savext2$ = ".hdr"
  80.    sav1$ = sav$ + savext1$
  81.    sav2$ = sav$ + savext2$
  82.  
  83.  OPEN sav1$ FOR OUTPUT AS #3
  84.   OPEN sav2$ FOR OUTPUT AS #4
  85.   PRINT "var1: "; Record.var1
  86.     h1$ = "var1: "
  87.     PRINT #4, h1$, Record.var1
  88.   PRINT "var2: ", Record.var2
  89.     h2$ = "var2: "
  90.     PRINT #4, h2$, Record.var2
  91.   PRINT "var3: ", Record.var3
  92.     h3$ = "var3: "
  93.     PRINT #4, h3$, Record.var3
  94.   PRINT "var4: ", Record.var4
  95.     h4$ = "var4: "
  96.     PRINT #4, h4$, Record.var4
  97.   PRINT "var5: ", Record.var5
  98.     h5$ = "var5: "
  99.     PRINT #4, h5$, Record.var5
  100.   PRINT "var6: ", Record.var6
  101.     h6$ = "var6: "
  102.     PRINT #4, h6$, Record.var6
  103.   PRINT "var7: ", Record.var7
  104.     h7$ = "var7: "
  105.     PRINT #4, h7$, Record.var7
  106.   PRINT "var8: ", Record.var8
  107.     h8$ = "var8: "
  108.     PRINT #4, h8$, Record.var8
  109.   PRINT "var9: ", Record.var9
  110.     h9$ = "var9: "
  111.     PRINT #4, h9$, Record.var9
  112.   PRINT "var10: ", Record.var10
  113.     h10$ = "var10: "
  114.     PRINT #4, h10$, Record.var10
  115.   PRINT "var11: ", Record.var11
  116.     h11$ = "var11: "
  117.     PRINT #4, h11$, Record.var11
  118.   PRINT "var12: ", Record.var12
  119.     h12$ = "var12: "
  120.     PRINT #4, h12$, Record.var12
  121.   PRINT "var13: ", Record.var13
  122.     h13$ = "var13: "
  123.     PRINT #4, h13$, Record.var13
  124.   PRINT "var14: ", Record.var14
  125.     h14$ = "var14: "
  126.     PRINT #4, h14$, Record.var14
  127.   PRINT "var15: ", Record.var15
  128.     h15$ = "var15: "
  129.     PRINT #4, h15$, Record.var15
  130.   PRINT "var16: ", Record.var16
  131.     h16$ = "var16: "
  132.     PRINT #4, h16$, Record.var16
  133.   PRINT "var17: ", Record.var17
  134.     h17$ = "var17: "
  135.     PRINT #4, h17$, Record.var17
  136.   PRINT "var18: ", Record.var18
  137.     h18$ = "var18: "
  138.     PRINT #4, h18$, Record.var18
  139.   PRINT "var19: ", Record.var19
  140.     h19$ = "var19: "
  141.     PRINT #4, h19$, Record.var19
  142.   PRINT "var20: ", Record.var20
  143.     h20$ = "var20: "
  144.     PRINT #4, h20$, Record.var20
  145.   PRINT "var21: ", Record.var21
  146.     h21$ = "var21: "
  147.     PRINT #4, h21$, Record.var21
  148.   PRINT "var22: ", Record.var22
  149.     h22$ = "var22: "
  150.     PRINT #4, h22$, Record.var22
  151.   PRINT "var23: ", Record.var23
  152.     h23$ = "var23:
  153.     PRINT #4, h23$, Record.var23
  154.   PRINT "offset: ", Record.offset
  155.     h24$ = "offset: "
  156.     PRINT #4, h24$, Record.offset
  157.   PRINT "length: ", Record.length
  158.     h25$ = "length: "
  159.     PRINT #4, h25$, Record.length
  160.   PRINT "var24: ", Record.var24
  161.     h26$ = "var24: "
  162.     PRINT #4, h26$, Record.var24
  163.   PRINT "var25: ", Record.var25
  164.     h27$ = "var25: "
  165.     PRINT #4, h27$, Record.var25
  166.   PRINT "var26: ", Record.var26
  167.     h28$ = "var26: "
  168.     PRINT #4, h28$, Record.var26
  169.   PRINT "var27: ", Record.var27
  170.     h29$ = "var27: "
  171.     PRINT #4, h29$, Record.var27
  172.   PRINT "var28: ", Record.var28
  173.     h30$ = "var28: "
  174.     PRINT #4, h30$, Record.var28
  175.  
  176.         OPEN "c:\work\test.bin" FOR BINARY AS #2
  177.           SEEK #2, Record.offset
  178.            s$ = INPUT$(Record.length, #2)
  179.           WRITE #3, s$
  180.         CLOSE #2
  181.       CLOSE #3
  182.  
  183. END
  184. -- 
  185.  Dan Krumlauf   Sysop of the Cleveland Freenet HORROR SIG   ! For more info  
  186.   Telnet to 129.22.8.38 Choose VISITOR  Type "GO HORROR"    !   Contact
  187.   "By the perception of illusion we expierience reality"    !  NGE fx at
  188. "Imagination is more important than Knowledge" -A. Einstein ! 216-890-9179  
  189.